rem #########	    Google Drive Right Click Context Menu - Create an entry in Send To, and linking that to the Google Drive
rem #########	    Copyright (C) 2012 S Rahul Bose
rem #########	
rem #########	    This program is free software: you can redistribute it and/or modify
rem #########	    it under the terms of the GNU General Public License as published by
rem #########	    the Free Software Foundation, either version 3 of the License, or
rem #########	    (at your option) any later version.
rem #########	
rem #########	    This program is distributed in the hope that it will be useful,
rem #########	    but WITHOUT ANY WARRANTY; without even the implied warranty of
rem #########	    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
rem #########	    GNU General Public License for more details.
rem #########	
rem #########	    You should have received a copy of the GNU General Public License
rem #########	    along with this program.  If not, see <http://www.gnu.org/licenses/>.

rem #################################################################################

rem #########	Time Stamp 	: 2012 05 27 22 16
rem #########	Title 		: Google Drive Right Click Context Menu
rem #########	Author 		: S Rahul Bose
rem #########	email 		: srahulbose@gmail.com
rem #########	Help		: http://blog.srahulbose.com/2012/05/google-drive-right-click-context-menu.html
rem #########	File Name	: google-drive-right-click-context-menu.vbs
rem #########	Source Code	: http://code.google.com/p/google-drive-right-click-context-menu/source/browse/trunk/google-drive-right-click-context-menu.vbs

rem #################################################################################
rem Creating an object of type Wscript.shell
Set WshShell = CreateObject("Wscript.shell")

rem Storing the "Send To" Folder path to "strSendTo"
strSendTo = WshShell.SpecialFolders("SendTo")

rem  Creating an object of type WshShell.CreateShortcut any specifying the name of the link
Set oShortcut = WshShell.CreateShortcut(strSendto + "\Google Drive.lnk")

rem  Specifying the target pointed by the link
oShortcut.TargetPath = "%USERPROFILE%\Google Drive\"

rem  Finally, creating the require shorctut link
oShortCut.Save
rem #################################################################################